home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / prflds23.sit / PrFlds XCMD 2.3.1 / background_3627.txt < prev    next >
Text File  |  1991-01-03  |  5KB  |  197 lines
  1. -- background: 3627 from stack: in.1
  2. -- bmap block id: 4328
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=245 top=277 right=299 bottom=369
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Show Print Specs
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the visible of card field "print options" then
  23.     set the name of the target to "Show Print Specs"
  24.     hide card field "print options"
  25.   else
  26.     set the name of the target to "Hide Print Specs"
  27.     hide card field "Layout"
  28.     hide card field "Selection"
  29.     show card field "print options"
  30.     hide card field "about build"
  31.   end if
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 5 (button)
  37. -- low flags: 00
  38. -- high flags: 8003
  39. -- rect: left=8 top=270 right=292 bottom=187
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: About PrFlds
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   hide card field "Layout"
  51.   hide card field "Selection"
  52.   hide card field "about build"
  53.   show card field "About"
  54.   if the optionKey is down then
  55.     put the lockText of card field "About" into stats
  56.     set the lockText of card field "About" to NOT stats
  57.   end if
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 6 (button)
  63. -- low flags: 00
  64. -- high flags: 8003
  65. -- rect: left=8 top=293 right=315 bottom=187
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: PrFlds Parameter Layout
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   hide card field "Selection"
  77.   set the scroll of card field "Layout" to 0
  78.   show card field "Layout"
  79.   hide card field "about build"
  80.   if the optionKey is down then
  81.     put the lockText of card field "Layout" into stats
  82.     set the lockText of card field "Layout" to NOT stats
  83.   end if
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 7 (button)
  89. -- low flags: 00
  90. -- high flags: 8003
  91. -- rect: left=8 top=316 right=338 bottom=186
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Special Selection Function
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   hide card field "Layout"
  103.   set the scroll of card field "Selection" to 0
  104.   show card field "Selection"
  105.   hide card field "about build"
  106.   if the optionKey is down then
  107.     put the lockText of card field "Selection" into stats
  108.     set the lockText of card field "Selection" to NOT stats
  109.   end if
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 8 (button)
  115. -- low flags: 00
  116. -- high flags: 8003
  117. -- rect: left=246 top=301 right=323 bottom=367
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Build Print Specs
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   put "," into comma
  129.   ask "The Background of which card?" with the number of cards
  130.   if it is empty then exit mouseUp
  131.   push card
  132.   go to card it
  133.   put empty into accum
  134.   put the number of cards of this bkgnd into accum
  135.   ask "Number of columns per page:" with 1
  136.   if it is empty then exit mouseUp
  137.   put comma & it after accum
  138.   put the number of bkgnd fields into howMany
  139.   put comma & howMany after accum
  140.   ask "Gap between records:" with 8
  141.   if it is empty then exit mouseUp
  142.   put comma & it after accum
  143.   ask "Top Margin (if different from gap):" with 30
  144.   if it is NOT empty then
  145.     put "/" & it after accum
  146.   end if
  147.   ask "Page Title:" with the short name of this Bkgnd
  148.   if it is empty then exit mouseUp
  149.   put comma & it after accum
  150.   set cursor to 4
  151.   repeat with ii = 1 to howMany
  152.     put the ID of bkgnd field ii into aLine
  153.     put comma & the rect of bkgnd field ii after aLine
  154.     put comma & the textFont of bkgnd field ii after aLine
  155.     put comma & the textSize of bkgnd field ii after aLine
  156.     put comma & the textHeight of bkgnd field ii after aLine
  157.     put comma & the textStyle of bkgnd field ii into thingg
  158.     put comma after aLine
  159.     put the number of items of thingg into hm
  160.     if hm>0 then
  161.       repeat with iii = 1 to hm
  162.         put char 1 of item iii of thingg after aLine
  163.       end repeat
  164.     else
  165.       put "P" after aLine
  166.     end if
  167.     put comma & the textAlign of bkgnd field ii after aLine
  168.     put ",no," & the short name of bkgnd field ii after aLine
  169.     put return & aLine after accum
  170.   end repeat
  171.   pop card
  172.   put accum into card field "print options"
  173.   set the name of bkgnd button ID 4 to "Hide Print Specs"
  174.   show bkgnd button ID 4
  175.   show card field "print options"
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 10 (button)
  181. -- low flags: 00
  182. -- high flags: 8004
  183. -- rect: left=280 top=327 right=342 bottom=384
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: about build
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   show card field "about build"
  195. end mouseUp
  196.  
  197.